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ABSTRACT 


This thesis describes the design and implementation of a 
computer based decision support system for parameter evaluation 
of Defence Procurement, The major components of information are 
identified and a systematic way of data structure validation 
and report generation is achieved. 

The decision process is automated by integrating and 
storing data in a data base, DBIviS-lO package available on 
D£C~1090 System at IIT Kanpur is used for creation of data“base. 

The development and implementation of a Decision support 
system is discussed in detail. Various types of programs 
for load, update and Retrieval of data are developed. Nece- 
ssary reports are generated to meet the users requirements. 

The decision support system is modular in design and implemen- 
tation, offering the user a spectrum of specific capabilities. 
The user can use a specific modules v>?ithout incurring the 
overhead of the other modules. 



CHAPTER 1 


INTROmJCTION 

1.1 decision support system 

The aim of decision support systems is to improve 
effectiveness of decision making by computer aids to the 
decision maker, A decision support system is a computer 
based system that is used on an ongoing basis by managers 
themselves, or their immediate staff, in direct support of 
managerial decision-making [l], Vi/hat has actually made 
decision support systems feasible and wide spread is the 
availability of software packages on computers that 
facilitate development of specifies user-defined DSS. 

A DSS is a vehicle to help managers to make more informed 
(and hopefully better) decisions [2], 

The information produced by a DSS consists mainly of 
interactive-iterative reports and unstructured reports. 

In the search for supporting information in a specific 
decision situation, the user may be required to iterate 
particular reports. And adding and deleting selected 
variable deemed to be important components of the individual 
decision making procedure. Reports involving complex 
relationships such as portfolio management, budget analysis 
selection of competent vendor, analysis of typical items 
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(products) are some of the products of a DSS, However, 
these reports only represent a fraction of the potential 
output from a DSS, 

Decision support systems have been developed as a 
result of managers trying to cope with decisions that include 
complex variable interactions. The ultimate object of a 
DSS is to help support a manager in making a decision. 

An important characteristic shared by all computer~ 
based information systems is the need for periodic re- 
structuring, updating and expansion unrelated to simple 
maintenance and error elimination. 

The three important agents as integral to the 
development of a DSS are : 

i) The client, who initially solicits the development of a 
system, specifies all performance criteria and often 
pays for the system, 

ii) The decision maker or user who actually interacts with 
DSS and to whom the support aspects are tailored, 

iii) The designer who specifies the details structure and 
capabilities of the system and is responsible for its 
implementation. 

In some cases, the client and the user are the same 
individual, while at other times one person plays the three 
roles [2]. 
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1.2 SCOPE OF THE THESIS 

This thesis describes the design and implementation 
of a computer based decision support system for a defence 
organisation which is responsible for production and 
procurement of Electronic and Electrical items/equipraents 
for Army and Navy. 

A modular Data-base is designed and developed integrating 
and storing relevant information. Application^ Programs are 
developed and various reports are generated to meet the users' 
requirements. 

The existing system maintains various records/file 
about Firms (suppliers) registered v^ith defence, item/ 
equipments projected for procurement, Projects earmarked for 
critical items/equipments , order placed for procurements, 
and inspection record of store inspected and released. The 
Firm record includes the list of products manufactured by 
the suppliers, the specification to which items/equipments 
are produced, financial position of firm and other details 
about firm, these are discussed in detail in Chapter 2, 

The other records contains information regarding projection 
and procurement of items/equipments and monitoring of critical 
items. Presently, these information are maintained on cards/ 
files. The updating and retrieval of information to aid 
decision making is tedious and time consuming. There is, 
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therefore, a need for computerised data base to generate 
accurate and timely reports for making judicious decision 
in placing orders with competent firms so that defence store 
of the right quality materialise, as per laid down schedule 
at optimum price, 

1.3 PLAN LAYOUT OF CHAPTERS 

Chapter 2 describes the existing system and associated 
problems in maintaining and updating information. 

Chapter 3 highlights the need for a data base, choice 
of programming feature. It also deals with the design methocio— 
logy of a data base. 

Chapter 4 gives in detail, the process of implementation 
of a data base using the DBMS-10 package available on DEC- 1090 
system at IIT Kanpur, This package is based on CODASYL 1971 
Data Base Task Group (DBTG) proposals. Other features of 
the system like utility programs and back up strategies axe also 
discussed. 

Chapter 5 gives conclusion and recommendations for 
further expansion of the system. 
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CEA.PTER 2 

LITERATURE SURVEY OF EXISTING SYSTEM 

The control flow chart of the existing system for demand 
and procurement of Electronic and Electrical equipments/ items 
is given in Appendix A, Controllerate of insp.Hlectr. (OIL) 
maintains a directory of competent suppliers (FIR?-iS), The 
capacity assessment of FIRMS is carried out by market survey 
teams and reports of their suitability for defence supplies 
or otherwise are forv>?arded to OIL through Regional 
Inspectorates, The control flow chart for capacity assessment 
is given in Appendix B, 

Various records are maintained at CIL for suppliers to 
assess the potential of the FIRM for executing Defence Order. 
Selection of competent firms for floating tender enquires is 
a vital link in the chain of supply of defence stores. 
Following information about FIRl'^S registered with CIL for 
defence supplies is always available : 

i) Capacity Report 

ii) R and D facilities available with FIRM 

iii) Quality Control Method Adopted 

iv) Test Certificates/Qualification approval certificates. 
Limited Test Certificates/Limited Qualification 
Approval certificates issued to the FIRK'l, 



6 


v) Prototypes successfully designed and developed by the 
firm 

vi) Financial position 

vii) Performance before and after placement of order 

viii) Range of products manufactured, 

ix) Misc. details like collaboration if any, Registration with 
DGS and D or Director of Industries etc. 

Based on the above information each firm is given a separate 
notation and designation which summarises information on the 
firm. 

An example of notation designation is 

This indicates that the FIRivi is an Electronic equipment 
manufacturer ( *L’ is for Electronics), that it is recommended 
for placement of large orders (A^), and that it is a large 
scale industry (I^) with good R and D and Quality control 
facilities. So far it has not developed any prototype. It is 
financially sound. It has responded to tender enquires six 
times and the quotation of the firm was rejected twice. It 
has executed one supply order without delay and one with 
delay. There is one current supply order which is being 
executed. No supply order has been cancelled due to unsatis- 
factory performance. 
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A very careful assessment of the competence of firms to 
produce electronic goods to the desired defence specification 
is necessary. The mt:.in problem of the existing system lies 
in keeping track of items and equipment projected for procure- 
ment and monitoring of critical defence equipment (Projects). 

In the present system, which is manual updating of 
information and report generation to aid decision making is 
time consuming and prone to human error. An inaccurate report 
may lead to wrong decision in selecting competent firm for 
materialisation of critical defence project. There is, 
therefore, a need for computerized information system to 
provide on line facilities to retrieve and update the data and 
generate accurate and timely reports for aiding decision making. 
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CHAPTER 3 

ENVIROmiENT FOR IHE PROPOSED DSS 

3.1 HEED FOR DATA BASE 

As explained earlier, it is essential to have a computeri- 
zed information system for the organisation. There are two 
options available for the development of computerized informa- 
tion system. 

1) To use conventional File Organisation Method ! 

In these methods the operational data may be kept in 
index, sequential or direct files. This method has two 
advantages, 

a) Implementation is easy, and 

b) Storage organization can be changed easily. 

However, the retrieval of operational data, based on a 
multitude of purposes becomes really difficult and requires 
too many files to be maintained. This may lead to inconsis- 
tency of data. Also integration of the system with other 
information systems becomes a difficult problem, 

2) To use DBf^ ; 

A data base management system is a collection of stored 
data used by the application systems of an enterprise. It 
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provides centralized control of its operational data which 
is most valuable asset. Beside these^ the data base management 
system provides the following advantages ; 

a) Ease in system design and programming 

b) Independence of data and programs 

c) Concurrent usage 

d) Consistent and upto da to data 

e) Protection and security of data 

f) Multiple host languages 

g) Data integrity can be maintained. 

3.2 CHOICE OF PROGRAivMING LANGUAGES 

The data base management system available on the 
DEC~1090 system can be used with FORTRAN, and COBOL. In 
this thesis COBOL has been used because it is best suited 
for record handling Vi/idely used for info, proc, application. 

It can be easily understood by any user who wishes to modifies 
certain application programs. The complexity of COBOL 
programming can be effectively controlled by employing 
structure. of a programming concepts. We have decided to use 
COBOL with DB^.'iS, so that the package can bo easily implemented 
on any computer made available to the defence organisation in 
future. 
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3,3 DBftiS-10 FEATURES 

The DBMS package available on DEC System 1090 is a 
group of programs that enable/ an installation to create, 
access and maintain one or more data bases. It is based on 
1971 CODASYL data Base Task Group proposals, 

A data base is a collection of interrelated data 
records structured and linked so that run-units can access 
them without regard to the physical storage,- medium, DBMS 
has two inherent advantages : 

1) Removal of data description from the application 
programs. 

2) Centralization of data management, 

A CODASYL DB?^ data base has the following additional 
advantages : 

1) It allows to structure the data in a manner most suitable 
to each application program although that data may be 
used by many programs, 

2) It allows more than one run-unit to concurrently retrieve 
the data in the data base even while a run-unit is 
updating it, 

3) It provides a variety of search strategies that can be 
used on an entire data base or portions of it. 
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4) It provides protection of the data base from unauthori- 
zed access as well as from destructive interaction by 
run units. 

5) It provides a number of v/ays in which one can relate 
the data records to each other, 

3.4 COMPONENTS OF DBMS-10 

DSMS-10 consists of the following components : 

SCHEMA ; The translator that processes the language used to 
describe the data bases. It also allocates and initia- 
lizes the storage space for the data base. 

DBMENO : A utility program for back-up and recovery of 
portion of the data base, 

DB Info : A utility program that produce.-, several reports such 
as cross reference listing and dumps of data base, 

COBOL DBMS Module : The module of the Cobol compiler that 
processes data base accessing statements. 

DBCS : The object- time module of DBMS used with FORTRAN and 
COBOL object time systems to access the data base. 

For further details see [3], 
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CHAPTER 4 

DEVELOPMENT AND I^iPLEMENTATION 

4.1 DATA STRUCTURE 

An outline architecture for a data base system is 
shovm in Fig, 1 [2J, The architecture is divided into three 
general levelss internal, conceptual and external. The 
internal is the one closest to physical storage, that is the 
one concerned vjith the way in which the data is actually 
stored* the external level is the one closest to the user 
that is, the one concerned with the way in v/hicli data is 
viewed by an individual user* and conceptual level is a 
’level of in-direction' betvjeen the other tvro. 

Fig, 2 shows the decision support system data base using 
data structure diagram notations. Data structure diagram 
is a graphic notation which uses two fundamental components - 
a rectangle and an arrow, A rectangle enclosing a name denotes 
an entity or record type. The second component is a directed 
arrow connecting two record types. The record type located at 
the tail of the arrow is called the ov/ner record type and the 
record located at the head is called the member record type. 
This arrow directed from owner to member is called a set type 
and it is named. 
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The Data base structure shovm at Fig, 2 shows a number 
of set types where the owner is the system. These sets are 
called singular set. Based on the types and frequency of 
retrieval and updating of various data, these singular 
sets are provided with sequential access of various record 
types for efficient processing, 

4.2 SCHEMA 

The Schema SSABAS.DDL for the decision support system 
is given in Appendix C, It defines the entire data base that 
is stored and available to all users. But an application 
program may need to view only some parts of the data base, 
and make some simple changes. 

The statement 'Schema Name is SSABAS* names the schema. 
Statement following this statement are the area entries. 

All areas are named and privacy lock for exclusive update 
and retrieval for the opening of these areas may be 

specified. The schema defined will not allow simultaneous 
update although it is possible in DBi-AS-lO [2], Simultaneous 
updates are costlier and are present when the data is accessed 
by multiple users simultaneously. 

The decision support system data base is divided into 
six areas which are i 
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1) Inspection-Detail-Area 

2) Item-Detail-Area 

3) Project-Detail-Area 

4) Projection-Area 

5) Firm-inf o-Area 

6) Man-Pro-Area (Manufacture product area) 

There are a number of record types described in the data 
base. Item doocription for various da ta-i terns in each 
Record type is self-explanatory. One Record field for FIRM- 
Record is describe/ in detail, 

4.3 FIRIvi RECORD 

Location Mode clause specifies the way in v^hich record 
occurrences should be placed and retrieved. For this record 
type CALC is specified. CALC refers to key-to-address 
transformations technique (hashing). This clause specifies 
that FIRivl-RECORD is placed according to the value of FIRM 
Name, The duplicate clause specifies that if any attempt is 
made to store a new but duplicate occurrence of FIRM-Record 
record, the system should reject the request and notify the 
application program of the rejection. By this clause storing 
of duplicate records is eliminated. 
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4.4 RELATION 

The relationships between various record types, are 
described by means of the sets. Each set description nan^s 
the set type, specifies the owner-record type and member- 
record type and gives detaiic-d information on how 
occurrences of the set are to be ordered andselected. The 
singular sets are those in which the owner is the system 
and since the system is the unique owner, there can exist 
only one occurrence of such a set type. There arc six 
singular sets in the DSS data-base. One set ALL-FIR^vl is 
selected for description, 

4.5 ALL-FIRJ-l-SET 

After fhame of the sot, the mode of sot is defined 
as CHAIN. This indicates the mechanism for the manipulation 
of record occurrences within the set. It indicates the way 
member-record occurrences in the set are linked together 
and with the owner. The duplicate clause indicates v/hether 
duplicate records are permitted for the defined keys, and 
if they are, how they should be handled. In this particular 
set duplicates are not allowed. Next part of the declaration 
viz, OWNER clause specifies the name of owner record type and 
the declaration of system as owner denotes singular set. 
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The member sub-entry names the member-record type, 
aIEMBER i£s clause names the member of the set. This is 
followed by a clause specifying permitted methods for a 
member record occurred from its membership to a set occurrence, 

MANDATORY specification indicates that once an occu- 
rrence of FIRM-Record is placed in the ALL-FIRlvi set it may 
not be removed from the set occurrence without actually 
deleting the record occurrence. Automatic specification 
specifies that each time a new occurrence of firm-Record 
is stored in the data base it is automatically inserted into 
the ALL-FIRiM set. 

A complete description of the database scheme used 
in the propose dsS describes various set types, their 
corresponding owner and member record types and options used 
can be found in the schema listing given in Appendix C, 

4.6 APPLICATION PROoRAMS 

Various programs are written to aid loading* updatir^ 
and retrieval of data. The programs are written only for the 
portion shown in dotted lines, the portion excluded contains 
information which is confidential in nature and also requires 
considerable amount of input data, Hov^ever, since the schema 
converts the entire data structural diagram the load, update 
and retrieval could be expanded easily to cover the other 
Record types. 
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4.7 SYSTEM FLOW CHART 

Systerx flow charts are schematic representations of 
data flow in the system Fig, 4,l(a) through 4, 1(c) showi in 
detail the flow of operational data and also how the data is 
retrieved and updated, in the data base. 

Various flov; paths are discussed in brief. The applica- 
tion programs which carry out the different data base opera- 
tions are given, 

i) Loading Path 

Fig. 4,l(a) shows the flow of master data into the 
data base. The input data files are created on desk 
(EDITIN.DAT) which are edited by corresponding programs 
(EDIT.CBL) for validating. Two files are created by 
EDIT.CBL, ERROR. LST and INPUT.DAT. If data is found to be 
valid INPUT.DAT file is created and ERROR. LSI file remains 
empty. But if data is errojfrfbus then ERROR, LST file contains 
list of errors detected and INPUT.DAT is empty. The procedure 
for preparation and editing of data is describe in subpara 4,8, 

ii) Update path 

Fig. 4,l(b) shovjs the information flow paths for opera- 
tional data during various updates operations. The bulk of 
data will be loaded into data base v'.dth the help of LOAD 
programs but user may require programs to update the data 
loaded by adding new information or deleting absolute 
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information loaded initially in the data base by load 
programs. 

The update programs provides the users on line 
facility to update data base as and when required. The 
UPDAT programs are interactive and access is provided for 
modifying any data indata base. The update programs are 
discussed in sub-para 4,10, 

iii) Retrieval path 

Fig, 4.1(c) shoves the flovj path during the retrieval 
of information by the user. The user may like to generate 
various reports to S;id decision making, this facility is 
provided with the help of on line interactive Retrieval 
programs. Various types of reports are generated by 
Retrieval program about items supplied by manufacturers, 
list of firms who axe capable of producing desired items, 
the vandor rating of firm and details about firms in coded 
form. The retriaval procedure is explained in detail in 
para 4,11, ' 

4.8 DATA PREPAR.ATICM AIMD EDITING 

Information on various data elements should be entered 
in the corresponding files. Once the data file is created, 
the Edit program should be run to check the validity of 
data. If any data is found to be invalid or erroneous, 
the corresponding error message are given in the corresponding 
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error list for further correction. If the data file is 
found valid, then the corresponding input data file will be 
created by the edit program, which will be used by the 
corresponding load program to store data in the data base. 
Only one Edit Program is written to check the validity of 
Item-Record in detail. This program can be expanded v/hen 
actual data is used, 

4.9 LOAD PROGRAK^S 

Load Programs loads the various data items into data 
base. It sets various link required in storing of data 
v/hich are used for retrieval of information and report 
generation. The design of data base is modular and relevant 
information can be loaded into data base by accessing only 
the specified record fields. 

The modular design makes data base cheaper and efficient 
in loading and retrieval of information. It is therefore 
desirable to use number of load programs depending upon the 
requirements of^user. Three load programs LOADl.CBL ,LCAD2.CBL 
and LOADS, CBL are written to load different record fields, 

LOADl.CBL loads information about Firms, Projects, items 
supplied and Range of products manufactured by the suppliers. 
The information about Firms includes past performance of firm. 
Quality control arrangemenii^R and D facilities, financial 
position, vandor rating of firm and firm code which gives 
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detail information about firm in coded form. The project 
information include* quantity on order^ value of order, date 
for submission of prototype and number of extention^ given 
for meeting delivery schedule. The information about item 
supplied in past with part-numl>er of item, range of products 
manufactured by the supplier, with rate of production and 
specification is also loadj^y this program, 

4.10 UPDATE PROGR.A 1 MS 

When only a few records are to be entered or deleted 
from data base on lino programs are useful. The update 
program^ provider on line facilities to update the information 
loaded in data base. The user can add nev/ information or 
delete an absolute information from data base by running UPDAT 
program. The program is interactive and us or can access any 
record for addition or deletion of information. Self 
explanatory questions are asked by the program and user is 
asked to provide the information about update of record 
fields, UPDAT program px'ovide the facility to correct the 
data erro;^rK)usly given by the user before updating. Once 
the data is validated the program stores the data and sets 
the appropriate links for recorcis.The user is tlion informed 
about the successful loading or deletion of information. 

Wrong deletion of record may be fatal, program provide^ the 
facility of confirmation by user before deletion by printing 
the appropriate record. The record is deleted only when 
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confirmed by the user. The UPDAT program provides facility 
to add or delete Firm, Item, Project and manufactured 
products recrrds. The program can be expanded to include 
more record depending upon the need of user, A typical run 
of up-date program is given at Appendix E, 

4.11 RETRIEVAL PROGRAMS 

IMFO.CBL Program 

Five types of quiries are available to retrieve data 
about firms, items supplied, projects in which the firm is 
involved, manufactured products. The following reports are 
generated v^hen required by the user, 

1) By giving the CAT-PAT-ON the user can get the names of 
firms who have supplied this item in the past, vendor 
rating of firms and important def items manufactured by 
these firms, 

2) By giving the name of the project, the user can get the 
names of firms which are executing this project, their 
postal address and latest bottle necks, if any, 

3) By , /giving the name of any item/equipment the user can 
know if any supplier registered with defence exists and 

i 

if so, its name and address, 

4) By giving the name of project and the item user can get 

names of firms vdiich are involved in the project and 

also producess the required item. 
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5) By giving the name/ of two items/equipment^ the user 

can get information about firms who are manufacturing 
these items/equipment^ and are registered vdth defence. 

Many mors useful reports may be generated by expanding 
the Rotri-’Val program depending upon the need of user, 

typical run of retrieval program is given at /.ppondix F, 

4.12 BACK UP STRATEGY AI’nID RECOVERY 

Vi?hon an updating run-unit accesses the data base, it 
has the potential of making damaging changes to the data 
base. So DBKiS provides means to remove tlie changes made 
during the execution of a run unit. This is done by llie 
use of the Journal file, A BEFORE image is a copy of a data 
base CBCS writes a BEFORE image of that particular page 
in the Journal file. For bringing back an old copy, an 
utility program called DBYiEND is provided in the system. 

For decision support systems disk journal is specified as a 
list of commands to be given for recovery ar« giveiJ in 
Appendix D, 
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CHAPTER 5 

COMCLUSIOM AND RECOM/£NDATlONS 
5.1 CONCLUSION 

The basic role of a decision support system is to ensure 
that reliable information is generated and exchange between 
personnel in safe, timely and cost-effective v;ays. It is 
absolutely necessary that central control be established 
for decision making and monitored through all phases of the 
life cycle of the data base designed and developed for 
decision support systems. 

An attempt has been made to design a decision support 
system for a defence organisation responsible for production 
and procurement of Electronic and Electrical items/equipments 
for defence forces. 

Various loading programs for initial loading and 
regular updates have been developed. Various updating 
feature like adding a New FIRfA (supplier) new item, new 
project, new manufacturing products have been provided. 

Only one edit program is developed for validating 
input data (for item-record only) other edit programs could 
be prepared using the actual input data. 

DBMS-10 package available at IIT Kanpur has been used to 
design and develop the decision support system. It will need 
minor modifications if used with other DBMS packages. 
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The decision support system designed as developed 
will help the organisation in generating accurate and 
timely reports to aid decision making. The maintenance 
cost of system designed v^ill be much cheaper in terms of 
man power and time, 

5.2 RECOmENDATIONS FOR FURTHER VORK 

The decision support system designed will be helpful in 
decision making for selection of competent firm for placing 
defence orders. The data base of the system can be expanded 
to include some mors functions like import substitution, 
specification comparison, digitalisation and storing of 
drawing in data base. 
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lector of Ordinance Service* ■*!}(») 
3 cr-Jtlnises \heae demands and project 1 *# 
dei^ands on various Corimittees 


Dof'..''nds projected to TCLSS 


Items deepatched 
to users 


V l:.i -ort 




1 




1 


I tern imported 
by DOS/ users 

1 1 tem/Hr'uipi.ient accepted for 
I rod’jction vvi thin the cour. try 


item received 

pt ZOD (Central Ordinanc® 

Depot) 


[ OIL ^.Control lerate of Insoection electronic) 
I apprcched to Intir -te suitable sources 


f lo.iti no ' Tender Enquires (TO) for Direct purchase 


Items despatches 
to user 



, I f no esto- 
bli ship's curves 
are ,avaiiaole 




\ 

ibirket survey 1 
cliv Vsionai-fCIl} 
v;ith the riCl;": 
of Henlonal 
Inspector 
te sctjrcec . 



List of firms inti- 
mated to DPIL 


Vandor Ratine 
is sent by CIL 


Quotation r 4 , 0 T 


TIL cD -clcs itt records oi Firm 
and Gjnfc lis-*- of Firms capable 
of ; T' uciao i te:a/ equipment to DPIL 




Asks CIL to locate 
additional sources 



are floated on competent firms 

w’jot ition received from Firm 
^ 

Dcri'^lfination of Quotation at HQ DPIL, 
Oi.parative statement is nrepared 


Despatched to 
tl'-rouqh COD 


,\c;epx rne 
\ ouot:3 


I 

^ 3 i*F "Uoces order on 




Firms 


I corns procured through 
RI after inspection 


DPIL - Director of Procr.* Jtion and Inspection Electronics 
HI - Regional Inspector 

TCLE 3 - Technical Committue cf Electronic and Electrical Store* 










APPEIMDIX B 


FLOW CHART OF CAPACITY 
ASSBSSii£.m OF F1PJ4S 



-irras/Industries Interested in 
1 supply of stores to defence approach 
I HQ' DPIL/CIL for Registration 


Scrutinisation of request 
done at CIL 


[ 


!■ 

.. I 

I CIL Advise RI under whose Jurisdiction 
I the firm falls to carry out capacity 
I Assessment 

^ At RI oaoer particular are forwarded 

-t-o for comoletion and on receipt 

of fSer particular survey teams are 

I detailed 

f r^-~voy team visiti>the liim 
\ and put up recommendation/ 

I 

4 4- oT th'" ■ are scrutinised and 
Seniof* li-o^ector visit* the firm i* 

-1 ^ required and f orward*- his recommendations 

I Recor.'imendation for'.varded to CIL for 


'tration of Firm 


i- 



At CIL, recommendation is 

and relevant information is t.Xi-racted, 
Firm is allotted Registration No, 


L Info, m DPIL and RI about registration of 
-L. t firm- 







APPhNLilX U 


SCHEMA SSABAS 


IMAGES NOT IN ORDER BY COMMAND* 

INTERCEPT BIND? UNANTICIPATED EXCEPTIONS* 
>{c JOURNAL IS DSK I BACKUP 
>icSIZE IS 4 TRANSACTIONS* 

ASSIGN INSPECTION-DETAIL-AREA TO EUAFIL 

RECORDS-PER-PAGE 60 

BUFFER COUNT IS 4 

CALC AT HOST 4 RECORDS-PER-PAGE 

^BACKUP BEFORE IMAGES 

FIRST PAGE 1 

LAST PAGE 20 

PAGE SIZE 256 WORDS* 

ASSIGN ITEM-DETAIL-AREA TO ABCFIL 

RECORDS-PER-PAGE 60 

BUFFER COUNT IS 4 

CALC AT MOST 4 RECORDS-PER-PAGE 

JKBACKUP BEFORE IMAGES 

FIRST PAGE 25 

LAST PAGE 45 

PAGE SIZE 256 WORDS* 

ASSIGN PROJECT-DETAIL-AREA TO DEFFIL 

RECORDS-PER-PAGE 60 

BUFFER COUNT IS 4 

CALC AT MOST 4 RECORDS-PER-PAGE 

^BACKUP BEFORE IMAGES 

FIRST PAGE 50 

LAST PAGE 70 

PAGE SIZE 256 WORDS* 

ASSIGN PROJECTION-AREA TO SSAFIL 

RECORDS-PER-PAGE 60 

BUFFER COUNT IS 4 

FIRST PAGE 90 

LAST PAGE 110 

PAGE SIZE 256 WORDS* 


ASSIGN FIRM-INFO-AREA TO GHIFIL 

RECORDS-PER-PAGE 60 

BUFFER COUNT IS 4 

CALC AT MOST 4 RECORDS-PER-PAGE 

JicBACKUP BEFORE IMAGES 

FIRST PAGE 75 

LAST PAGE 85 

PAGE SIZE 256 WORDS* 

ASSIGN MAN-PRO-AREA TO PQRFIL 
F5EC0RDS-PER-PAGE 60 
BUFFER COUNT IS 4 



CALC AT HOST 4 RECORDS-PER-PAGE 

3 


FIRST 

PAGE 120 



LAST PAGE 140 



PAGE S 

IZE IS 256 WORDS* 



SCHEMA 

NAME IS SSABAS* 



AREA NAME IS INSPECTION-DETAIL-AREA * 

AREA NAME IS ITEM-DETAIL-AREA* 



AREA NAME IS PROJECT-DETAIL-AREA* 

AREA NAME IS PROJECTION-AREA* 



AREA NAME IS FIRM-INFO-AREA* 

AREA NAME IS MAN-PRO-AREA* 



RECORD 

NAME IS INSPECTION-NOTE-RECORD 




LOCATION MODE IS CALC USING DIS-OF-STORE 
DUPLICATES ARE NOT ALLOWED 

WITHIN INSPECTION-DETAIL-AREA* 



02 

INSPECTION-NOTE-NUM 

PIC 

9(8) * 

02 

INSPECTORATE 

PIC 

X<28) * 

02 

NAME-AND-ADDRESS-OF-FIRM 

PIC 

X(24) * 

02 

INDENTOR 

PIC 

X<24) * 

02 

INDENT-NO-AND-DATE 

PIC 

X(32) * 

02 

CONSIGNEE 

PIC 

X(12> * 

02 

DATE-OF-INSPECTION 

PIC 

X<8) * 

02 

DIS-OF-STORE 

PIC 

X<24> * 

02 

QTY-TENDER 

PIC 

9<6) * 

02 

ACCEPTED 

PIC 

9(6) * 

02 

TOTAL-QTY-ACCEPTED 

PIC 

9(16) * 

RECORD 

NAME IS ITEM-RECORD 




LOCATION MODE IS CALC USING CAT-PAT-NO 
DUPLICATES ARE NOT ALLOWED 

WITHIN ITEM-DETAIL-AREA* 



02 

CAT-PAT-NO 

PIC 

X(14) * 

02 

ITEM-EQPT-DIS 

PIC 

X(24)* 

RECORD 

NAME IS PROJECTION-RECORD 




LOCATION MODE IS CALC USING ITEM-EQPT-DESCR 
DUPLICATES ARE NOT ALLOWED 

WITHIN PROJECTION-AREA* 

IPTION 


02 

CAT-NO 

PIC 

X(14)* 

02 

ITEM-EQPT-DESCRIPTION 

PIC 

X(24) » 

02 

AGD-SRL-NO 

PIC 

9(4)* 

02 

QTY-DEMANDED 

PIC 

9(6)* 

02 

LAST-SQURCE-OF-SUPPLY 

PIC 

X(24) * 

02 

LAST-PRO-RATE-DATE 

PIC 

X(20)* 

02 

PRIORITY 

PIC 

X(8)* 

RECORD 

name is PROJECT-RECORD 





4 


LOCATION HODE IS CALC USING NAME-OF-PROJECT 
DUPLICATES ARE NOT ALLOWED 
WITHIN PROJECT-DETAIL-AREA* 


02 

NAME-OF-PROJECT 

PIC 

X<12) 

02 

qty 

PIC 

9<4) * 

02 

PROJECT-VALUE 

PIC 

9<S) * 

02 

DATE-PRQTOTYPE-REQUIRED 

PIC 

X<8) * 

02 

N0-EXT-6IV-F0RSUB-PR0T 

PIC 

9(2) * 

02 

D-PROT-FD-FOR-EVA 

PIC 

X<8) * 

02 

PROJECTION-REFERENCE 

PIC 

X(8) * 

02 

PRE-SOUR-PROC-W-PRICE 

PIC 

X(20) 

02 

D-QUOT-OPEN-R-TCLEM 

PIC 

X(12) 

RECORD 

LOCATI 

02 

NAME IS ORDER-RECORD 

ON MODE IS CALC USING NAME-AND-ADD-OF-FIRH 
DUPLICATES ARE NOT ALLOWED 

WITHIN FIRM-INFO-AREA* 

ORDER-NUM 

PIC 

9(3) * 

02 

ISSUING-AUTHORITY 

PIC 

X(14) 

02 

NAME-AND- ADD-OF~F I RM 

PIC 

X(24) 

02 

CONTR-QUOT-D 

PIC 

X(12) 

02 

DESCRIPTION-OF-STQRE 

PIC 

X(24) 

02 

DRAW-SPEC-GOV-MANUF 

PIC 

X(6) * 

02 

ORDER-QTY 

PIC 

9(4) * 

02 

PRICE 

PIC 

9(5) * 

02 

INSPECTOR 

PIC 

X(12) 

02 

PROJECT I ON-REF AGD 

PIC 

X(4) * 


RECORD NAME IS FIRM-RECORD 

LOCATION MODE IS CALC USING NAME-FIRM 
DUPLICATES ARE NOT ALLOWED 
WITHIN FIRM-INFO-AREA* 

02 NAME-FIRM 

02 IMPORTENT-DEF-ITEM-PRO 

02 REMARK-OF-OISITING-OFFICER 

02 CONTROL-NUMBER-OF-CIL 

02 NATURE-AND-SIZE-OF-INDUSTRY 

02 FACILITY-AVAILABLE-FOR-RANDD 

02 QUALITY-CONTROL-SYSTEM 

02 TEST-CERTIFICATE 

02 QUAL-APPR-CERT 

02 LIMITED-TEST-CERTIFICATES 

02 FINANCIAL-POSITION 

02 CURRENT-SUPPLY-ORDER 

02 NO-SUPORD-EX-WDELAY 

02 SUPORD-CANC-UNSAT-PER 

02 NO-OF-TIME-TE-FLOATED 

02 NO-OF-QUOTATION-ACCEPTED 

02 no-of-orders-executed-by~firm 

02 FIRM-CODE 

02 RATING-OF-FIRM 


PIC X(24)* 

PIC X(36)* 

PIC X<24)* 
PIC X<6) * 
PIC X* 

PIC X(4)* 
PIC X<4) * 
PIC 99* 

PIC 99* 

PIC 99* 

PIC X(5)* 
PIC 99* 

PIC 99* 

PIC 99* 

PIC 99* ; 
PIC 99* ; 
PIC 99* 

PIC X(28).: 
PIC X(4) * 



RECORD NAME IS MAN-PRO-RECORD 

LOCATION MODE IS CALC USING ITEM-EQPT 
DUPLICATES ARE NOT ALLOWED 
WITHIN MAN-PRO-AREA* 

02 ITEM-EQPT PIC X<24) 

RECORD NAME IS QTY-RECORD 

LOCATION MODE IS CALC US-ING DIS-ITEM-EQPT 

DUPLICATES ARE ALLOWED 

WITHIN INSPECTION-DETAIL-AREA* 


02 

QTY-ON-ORDER 

PIC 9(4)* 


02 

QTY-SUPPLIED 

PIC 9(4)* 


02 

QTY-UNDER-INSPECTION 

PIC 9(4)* 


02 

QTY-UND-CL-CTEST-CIL 

PIC 9(4)* 


02 

QTY-WITHDRAWN 

PIC 9(4)* 


02 

DIS-ITEM-EQPT 

PIC X(24)* 


RECORD 

02 

NAME IS QUOTATION-RECORD 
LOCATION MODE IS CALC USING 
WITHIN ITEM-DETAIL-AREA* 
ITEM-EQUIPMENT-DIS 

ITEM-EQUIPMENT-DIS 

PIC X(24) * 


02 

NAME-ADDRESS-SUPPLIER 

PIC X(24) * 


02 

QUANTITIES-SUPPLIED 

PIC 9(4)* 


02 

RATE-AT-WHICH~SUPPLIED 

PIC 

X(8) « 

02 

CAT-PAT-NUM 

PIC 

X(14) 

02 

DIS-OF-ITEM 

PIC 

X(24) 

02 

QUAN 

PIC 

9(4) * 

02 

DOSINDENT-NO 

PIC 

X(12) 

02 

LAST-PURCHASE-PRICE 

PIC 

X(8) * 

02 

DATE-PROJECTION-ACCEPTANCE 

PIC 

X(8) * 


RECORD NAME IS ITEM-FIRM-LINK 

LOCATION MODE IS DIRECT IFL-1 
WITHIN ITEM-DETAIL-AREA* 

02 DUM-3 PIC X* 


PIC X<12)* 
PIC X<8>* 

SET NAME IS PROJECTED-ITEMS 
MODE IS CHAIN 
ORDER IS SORTED 


RECORD NAME IS PROJECT-FIRM-LINK 

LOCATION MODE IS DIRECT PFI-1 
WITHIN PROJECT-DETAIL-AREA* 

02 DUM-2 PIC X* 

RECORD NAME IS RANGE-FIRM-LINK 

LOCATION MODE IS DIRECT RPF-1 
WITHIN MAN-PRO- AREA* 

02 MAN-SPEC 

02 RATE-PROD 



DUPLICATES ARE NOT ALLOWED 
OWNER IS ITEH-RECORD 
MEHBER IS PROJECTION-RECORD 
HANDATORY AUTOMATIC 

ASCENDING KEY IS ITEM-EQPT-DESCRIPTIQN 

SET NAME IS PRO JECT-PROJECTIONS 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE ALLOWED 
OWNER IS PROJECT-RECORD 
MEMBER IS PROJECTION-RECORD 
OPTIONAL MANUAL 

ASCENDING KEY IS ITEM-EQPT-DESCRIPTION 

SET NAME IS ALL-ITEM 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS SYSTEM 
MEMBER IS ITEM-RECORD 
MANDATORY AUTOMATIC 
ASCENDING KEY IS ITEM-EQPT-DIS* 

SET NAME IS ALL- INSPECT I ON-NOTES 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS SYSTEM 

MEMBER IS INSPECTION-NOTE-RECORD 
MANDATORY AUTOMATIC 

ASCENDING KEY IS INSPECTION-NOTE-NUM* 


SET NAME IS ALL-PROJECTS 
" MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS SYSTEM 
MEMBER IS PROJECT-RECORD 
MANDATORY AUTOMATIC 

ASCENDING KEY IS PROJECTION-REFERENCE ♦ 


SET NAME IS ALL-FIRM 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS SYSTEM 
MEMBER IS FIRM-RECORD 
MANDATORY AUTOMATIC 
ASCENDING KEY IS NAME-FIRM* 



SET NAHE IS ALL-PROJECTIONS 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE ALLOyED 
OWNER IS SYSTEM 
MEMBER IS PROJECTION-RECORD 
MANDATORY AUTOMATIC 

ASCENDING KEY IS ITEM-EQPT-DESCRIPTION * 

SET NAHE IS COMPARATIVE-STATE 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS FIRM-RECORD 
MEMBER IS QUOTATION-RECORD 
MANDATORY AUTOMATIC 

ASCENDING KEY IS ITEM-EQUIPMENT-DIS * 

SET NAME IS ITEM-FIRM 
MODE IS CHAIN 
ORDER IS ALWAYS LAST 
OWNER IS ITEM-RECORD 
MEMBER IS ITEM-FIRM-LINK 

MANDATORY AUTOMATIC 

SET SELECTION CURRENT* 


SET NAME IS PROJECT-FIRM 
MODE IS CHAIN 
ORDER IS ALWAYS LAST 
OWNER IS PROJECT-RECORD 
MEMBER IS PROJECT-FIRH-LINK 
MANDATORY AUTOMATIC 
SET SELECTION CURRENT* 

SET NAME IS INSPECTION-DATA 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE ALLOWED 
OWNER IS INSPECTION-NOTE-RECORD 
MEMBER IS QTY-RECQRD 
MANDATORY MANUAL 
ASCENDING KEY IS DIS-ITEM-EQPT* 

SET NAME IS ORDER-PLACED 
MODE IS CHAIN 
ORDER IS SORTED 
DUPLICATES ARE NOT ALLOWED 
OWNER IS PROJECTION-RECORD 
MEMBER IS ORDER-RECORD 
MANDATORY AUTOMATIC 

ASCENDING KEY IS NAME-AND-ADD-OF~FIRM* 



IS F-ROJECTION-HATERIALISATION 
SET IS CHAIN 

order is sorted 
duplicates are not allowed 
owner is projection-record 

ivjpMBER IS QUOTATION-RECORD 
jvjANDATORY AUTOHATIC 

(SiSCENDING KEY IS ITEH-EQUIPMENT-DIS ♦ 
is COHPARATIUE-STATEHENT 
SE1 NAH- ig. .j.g 

order is sorted 

OWNER IS QUOTATION-RECORD 
HPMBER IS QTY-RECORD 
HANDATORY AUTOHATIC 
OPT SELECTION CURRENT* 

.Hf'^TS FIRM-CURRENT-ORDERS 
SET j3 CHAIN 

order is SORTED 

duplicates are allowed 

OWNER IS FIRM-RECORD 
fi^pMBER IS ORDER-RECORD 
f^ANDATORY AUTOMATIC 

ASCENDING KEY IS NAME-AND-ADD-OF-FIRM. 


SET 


kiahe is all-man-pro 
mobe is chain 
ORBEP: is sorted 
DUPCICATES are not allowed 
OWNER IS SYSTEM 

HL-MBER is man-pro-record 
mandatory automatic 

^OCENDING KEY IS ITEH-EQPT* 


SET NAHE 


IS firm-ite:m 

mode- IS CHAIN 
order is always LAST 
OWNER IS FIRM-RECORD 
member is ITEM-FIRM-LINK 

mandatory automatic 
OPT SELECTION CURRENT* 


SET NAHE 


IS FIRM-MAN-PRO 
mode IS CHAIN 

order is always last 

OWNER IS FIRM-RECORD 
hfmber is RANGE-FIRH-LINK 
mandatory automatic 
gpT SELECTION CURRENT* 


i-i"* TS FIF?M“-PR0 ject 
SET NAME 



MODE IS CHAIM 
ORDER IS ALWAYS LAST 
OWNER IS FIRM-RECORD 
MEMBER IS PROJECT-FIRM-LINK 
MANDATORY AUTOMATIC 
SET SELECTION CURRENT* 

SET NAME IS MAN-PRO 

MODE IS CHAIN 
ORDER IS ALWAYS LAST 
OWNER IS MAN-PRO-RECORD 
MEMBER IS RANGE-FIRM-LINK 

MANDATORY AUTOMATIC 
SET SELECTION CURRENT* 


SUB-SCHEMA NAME IS SOS 

PRIVACY LOCK IS LETHAL* 


AREA SECTION* 

COPY ALL AREAS* 


RECORD SECTION* 

COPY ALL RECORDS * 

SET SECTION* 

. COPY ALL SETS * 


END-SCHEMA 



APPEI\T>IX D 


RECOVERY OF DATA BASE 


.R DBMEND 

/Journal BAKUPs JRN 

/OPEN ‘INSPECTION-DETAIL-AREA’ 

/OPEN ’ITEM-DETAIL-AREA’ 

/OPEN ’ PROJECT-DETAIL-AREA ’ 
/OPEN ' PROJECTION-AREA ' 

/OPEN ’ FIRM-INFO-AREA ’ 

/OPEN ’MAlNi-PRO-AREA’ 

/ST;\RT 

/END 

/MERGE BEFORE 
/CLOSE ALL 
/UNLO/\D 
/CONTROL Z . 





A T /P lf AL RUN OF UPi'iA lf: f'ROORA/i 


EX TEST7A.CBL. 

COBOL J UPDAT l I:TEST7A.CBLD 

LINKJ Loadinsi 

CLNKXCT UPDAII e;;ecutionII 

IF EXECUTION TERMINATES ABRUPTLY » THEN GIVE FOLLOWING 
COMMAND IN MONITERX MODE 
DO MEG « MIC 

TYPE 1 IF YOU WISH TO ADD NEW FIRM! 

TYPE 2 IF YOU WANT TO DELETE FIRMIl 

TYPE NAME-FIRM IN X ( 24 ) : AHLUWALIA PVT LTD KANPUR 

IMPORTENT -DEF -ITEM-PRO INX36tGEN SET 15KVA» 19KVA>-BTY CHARGERS 

GIVE REMARKS-OF-VISITING-OFFICER IN X24;REC FOR BULK ORDERS 

TYPE CONTROAL-NO-QF -CIL ALLOTED .IN X6:CIL-11 

NATURE-AND-SIZE-OF-INDUSTRY .XU. 

TYF'E R AND D FACILITIES AVAILABLE WITH THE FIRM IN X4:G00D 

TYPE QUALITY -CONTROL-SYSTEM OF FIRM X4;G00D 

TEST-CERTIFICATES HELD BY FIRM 99: 10 

GIVE NO OF QUALIFICATION-APPROVAL-CERTIFICATES 

HELD BY firm: 2 

GIVE NUM TEST-CERTlFICATES-HELD BY FIRM 99: 12 
GIVE FINANCIAL-POSITION OF THE FIRM IN XT 6) CH: SOUND 
GIVE NUMBER OF CURRENT-SUPPLY-ORDER 
EXISTING WITH THE FIRM: 23 

GIVE NO OF ORDER EXECUTED WITH DELAY IN 99:2 

NO OF ORDER CANCELLED DUE UNSAT PERFORMANCE IN 99 '.2 

NO-OF-TIME-TE-FLOTED IN 99t8 

GIVE NO OF QUOT ACCEPTED IN 99:6 

GIVE NO OF ORDER EXECUTED DY FIRM IN 99: 10 

TYPE FIRM-CODE IN X( 28) : EA1--I1R2Q2D1F2/M8 N6/S403P1 

GIVE RATING-OF-FIRM IN X(4):7 

DO YOU WISH TO CORRECT ENTRIES IN RECORD 

TYPE Y ^ 

ELSE TYPE N:N 



Givf 'Gwu.::'’ ' 

RI^/E atY 4C'- t "'OC 

GivL rRCwC-T-vi&i. "V &C'i:'0’^ccc 

GIVE riA'?c~Fr<0I0’''FE~R£5-I‘ Eli X ( 3 , S GSc'^Sl 

NO-EXT-QIV-FOR&UB-PRC^ S .‘C.-JZ 

D-PROT-FD -FOR-LVA I\ 8ChJ 

PROJECTlON-RrrERFKCE IN X«3^?MAR8? 

•^RE-SOUR-PRuC W"i-PECi X(20,* N'ORTEIUS* $.ZP 
r!“QUOT-OFEN-R-TC!.t.K IS \ ^ : .E-0?~8lA/S3 

no YOU WISH TO CORRECT ENTPIIS TN RECORn: 

TYPE Y fclSF TYffc Mjv 

GIVE NAMt“OF“f KGJECT X'lC^JGcN Si '.A 
gIVF QTY 4CH:200 
GIVE PROJECT-VALUE IN 8CH.»2jOOCO 
GIVE DATE-PROTOTYFE-RESUIREr X^'/ J09-C«?~S: 
NO-EXT-GIV~FORSUB-PROT IN 2C-i? 5 
»-PROT-Fn-FOR-EVA IN SCIU 08 -C;^-B2 
PROJECT I ON-RI.FCRENCE IN X<S>;SE.‘S: 
PRE-SQUR-PROC-W-PRICE X<20) : IHPCRTF: USA 
n-QUOT-OPEN-R-TCLEM IN XdOtOe Ob-80 
DO YOU WISH TO CORRECT ENTRIES IN RECOl'D: 

TYPE Y ELSE TYPE NJN 

TYPE Y IF YOU HAVE NORt fRCwEi fS ^-3 aDI 
TYPE N OTHERWIfaE:N 

GIVE CAT-PAT-NO IN X<14) tZ32/00i800l2‘34 
GIVE n£M-rC<PT-DIS IN X<24)f GIVING ONE BLANK EX 2A 
THIS IS NEW ITEM/EUPT SO } LEASE TYPE 
ITEM-SPEC GIVING ONE BLANK : ClL-6/ 

TYPE Y IF YOU HAVE MORE I^EMS ADB 
TYPE N OTHERWISE JY 



(5IVL CAT--PAT-NO IN X n 4 ) : Z31 /OOl 000 I I'i <1 

GIVE ITEM-EQPT--DIS IN X(24)} GIOING ONE 01 ANELXl HAfJOf : A 
THIS IS NE.UI ITEM/EQPT SO PLEASE TrFE 
ITEM-SPEC GIOING ONE BI..ANKJCII. 8 
TYPE Y IF" YOU HAOE MORE ITEMS 10 AHIi 
TYPE N OTHERWISE :Y 

GIOF: CAT-PAT-NO IN X < 1 4 ) J 23/000 10001 234 

G I ME I r EM- EQP T--D 1 S IN X ( 24 ) r G F M I NO ONE:: Bl ANT ! <CHANl 7 l: 1 0’ ■ i Nt S I’A 
I HIS IS NEW ITEM/EQPT SO PLEASE TYPE 
I T E M - S P E C 0 1 M I N G ON E H 1. A N K t C I L - 6 7 8 
TYPE Y IF YOU NAME MORE ITEMS TO ADD 
TYPE N OTHERWISEiN 
ITEM-EQPT IN X( 24) I GEN SET 15I\MA 
GIME MAN-SPEC X(12):MIL-78 
GIME RATE OF PRODUCTION X<8):300S/M 
DO YOU WISH TO CORRECT ENTRIES IN THE RECORD 
TYPE Y ELSE TYPE NJ 
N 

TYPE Y IF YOU HAVE MORE MAN-PROS TO ADD 
TYPE N OTHERWISE :Y 
ITEM-EQPT IN X( 24) I GEN SET 19KMA 
GIME MAN-SPEC X<12)tMIL-9B 
GIME RATE OF PRODUCTION X ( 8 ) M. OOS/M 
DO YOU WISH TO CORRECT ENTRIES IN THE RECORD 
TYPE Y ELSE TYPE NF 
N 

TYPE Y IF YOU NAME MORE MAN-PROS TO ADD 
TYPE N OTHERWISE :N 
UPDATING IS SUCCESSFUL 

TYPE Y IF YOU WISH TO INSERT OR DELETE ANY MORE RECORDS 
ELSE TYPE N:N . 

UPDATING IS SUCCESSFUL 


EXIT 





APfEMDiX, f 

A TVPTCA;,, run of KeTRIEUAL PROGRAM 

EX S.ifSGS.CPI, 

LINK'! LoPcJind 
IILNKXCT RTRVAL 4?Kecytiori3 

type y if output ok* tty is required else type n tr 

TYPE 1 IF FIRHS FOR EXISTING DEFENCE PROJECT ARE WANTED 

ABOUT THE FIRM WHO HAD SOPLIED A PARTICU! AR ITEM TO li 


TYPE 3 IF* FIRMS REGISTERED WITH DEF AND PRODUCING THE DESIRED ITEM IS REOP 

TYPE 4 IF FIRMS FOR TWO PARTICULAR DESIRED ITEMS ARE REQUIRED 

type 5 IF FIRHS HAVING A DEFENCE PROJECT AND PRODUCING A ITEM IS REQRFDn 
rypE NA^D:::~oF•*• PROJECT :r set xx 

ISEHI CONDUCTORS LTD CHG3LA2*-1 1R2Q2D2F2/Nc. M4/Si03Pi 015*00 
2BHARAT ELECTRONICS BG-22LA1-I2R2Q2D1 F2/N7 H7/S205P0 ^027*00 

the REQESTED information is in FILE INFORM*FIL 
IF YOU WANT MORE- INFORMATION TYPE Y 
ELSE TYPE N:N ' 

Y 

TYPE 1 IF FIRMS FOR EXISTING DEFENCE PROJECT ARE WANTED 

TYPE 2 IF YOU WANT TO KNOW ABOUT THE FIRM WHO HAD SUPLIED A PARTICULAR ITEM TO D 
EFENCE 

type 3 IF FIRMS REGISTERED WITH DEF AND PRODUCING THE DESIRED ITEM IS REQD 

type 4 IF FIRMS FOR TWO PARTICULAR DESIRED ITEMS ARE REQUIRED 

type 5 IF FIRMS HAVING A DEFENCE PROJECT AND PRODUCING A ITEM IS REQRED:2 
type CAT-PAT-NO : 71/00018001234 

lERRICSON INDIA LTD CAL22LA1-I 1R2Q2D3F2 ^N7 M5/S303P1 EXCHANGE 15LINES1 Af 50LINES 
2A.100LINE 

2P&T FACTORY .BOMBAY-46 LAl-I 1R2Q2D3F2/N7 M5/B303P1 EXCHANGE 15LINES1 A»50LINES 
2A.100LINE 

3INTRUHENTATI0N LTD KOTA EA2-I2R2Q2D3F2/N4 M2/S303PI EXCHANGE 15tIN£S2A tSOLINES 
2Arl00LINE 

THE REQESTED INFORMATION IS IN FILE INFORM *FIL 
IF YOU WANT MORE-INFORMATION TYPE Y 
ELSE TYPE N:Y 

TYPE 1 IF FIRMS FOR EXISTING DEFENCE PROJECT ARE WANTED 

TYPE 2 IF YOU WANT TO KNOW ABOUT THE FIRM WHO HAD SIJPIIEID A PARTICULAR ITEM TO D 
EFENCE 

TYPE 3 IF FIRMS REGISTERED WITH DEF AND PRODUCING THE MSIRED ITEM IS REQD 
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R P i J R fV, ij P u 1 1 G •»»» R 4 S E U W T I L T I » " i ^ ^ 

l7t'^--’-F^UPl'-FTUF. 

STjn Bi,H, 

.■„lVi»’-^>K'li,nA‘1-RA,ri'.LYlT, 

;>F:cTin,v. 

Uf’b;^ RREA lWSPfc;:i’TDW-Dfc;TAIii-ARE2\ 
Ur>A<^E-f4nDF EXCLHSTtfE UpDArS,. 

Uin-,"' ^REA ITEM-OgT^TL-AFiiA 

U'=;A'^E-Mnt;K FirutJstW UpnATE, 

UPgN ARFa PPUJETT-D'^Tailj-l^REA 
UPAng-MODF FAru’ISTi/F: UPDATE. 

(jPgU akFA FTRM-IfjFu-AOER 
USAHE-MnuF FXrLUSTVF UPDATE, 

U'f’EM RHEA MRN«PRD"APEB 
USA^^E-HODF TS EXCLUSIVE UPD^FS 
,)f’t"il*'-!l,-EXiT,FAT'r. 
i>FCTin,\, 


'M < 


AREA;,- 
uPuA I'T -ia 


•DASE 
•DASE-RUTDi:, 


IP 


PR 


pi?Kr’ |p:.i 
pPK*‘'VJpin 


UTbPuAV 
UTbPuAy 
.vTi'U :U) 
•cni)F = 1 
PFkFDRA 
Hf V ' v; ' 
pFRFJRi*, 
ITEV 
M A ('< 


TyPF 1 IF van ^rxSH TO ADD VEX FiRX: ' 

'TYPE 2 IF yan VAMf ID DELETE FIRM:' 
Al>\/AMCiNG AfCFFT TyPE-CODF. 

FtKM-PECURD-STaRIVG 
Tli ^iORF-PRnjFCT MDRE-ATEM 
RPuJEr T-RFCORD-STOKTvG UR TIL MURE-PROJECT = 

RECUnu-bTUPIMG uvriL jiorf-ttfm = 'M' 

PRu-KFCPRD-STnRTrtG URTIL MGRE-MAR-PPG = 


’U' 


^OijF = 7 

PFKFiJRM firm-deletion. 

IT TiUHv-CnuF Tb <t OR. >? 

llTSPl.AV 'IMPROPFR CODE TyPE-CODF' 

1,0 T,J tJPUAriwn-RASE-EMU. 

UTS^i.AX ' UPUATTnO ts SUCrESSFUL'. 

’^OVF OPACFS TO MORE-TRAWSACTinXS. ^ .e ^ #v» 

PFRFJR''^ TPAUSACTlDNR-rHFCKIUG UVTTG MORE-TRR I'iSACTTOVb = Y 
upl)a rTNr.-nASE-Eui).EXiT. ^ 

T R A u ; i A G T ,l n S - c t i F c K i M G b F c T I n N . 

TRAUGACT,|.nN,S-"HS'C''i“G-bFGTN. , unnr dc' 

OTSPi.An' 'Tyc>E X iF XUU WISH I'D tWSERI JR DiiLETt AVY tnORF RE, 
UTf.T(-A,» 'FUSE TYPE 
/jTli? '-Lj ADVAnCJINg 
A'’CF p''' MURE-i'RAUbACTxniyvS. 

!• R A U : j A C T 1 0 iXS - C ii F C K 1 N E - E W U , E X 1 T , 

XTE«-RECJPa-STuRlUG SFCTlOy, 

LT[:,M-RECuRl)-bTORJ.WG-EUTPy, 
l)TGR;jAX 'GIVE CAT-PAT-nO TiV 


»M » 

DR 

JRDS' 



Kp:f\n 


T-lTfiM-EyPT, 


‘Ui Anv^'ri'Tu 

T r:AT-P,\T„fty 

">sj Anvadn^b ^ *• ’ 

'f* 'T I P 1.1 -K Opt -'UP 

U'<'':h-fc;'H'T-ni s tu 

1^'vauTt.) KF'i 
UTfiPi.Ai- 'ThTS 
l^T^J.P,,^, 'TlFw 

AnvawciMG 
’''■(.'’‘'A'i-aPi'.r 

.1 U: l^KM-Fypx.RircnRn 

INvrq.TU hF,t 

'.;n Tu U''‘’EV(£f-r-P!XTT. 
AOMF T-riKH-EOPT t 5 ifS«i^QPX 

f^HRUR-SXaXTTS = 0326 

STUPE iTEM-RejCURt) 
STut>E ITfcM-FXRH-bTi^K 

hTibP; 


GTVT,s< 5 n:iiE BuAwK* 


IS Ti'SM/EORT so RT.SSS'J' TYPK* 
SPEC ClUiWG ONE bLAWK!' 


SI 

pPHP',)’" 
V f.; \o - u I 
ETiri-Hi 
FTK'*-Pt 


. . oTuPE ITEM-FIP^-uTmK:. 

>ACKS rn MUPE-iTKM, 

i (•iHKF-rtP|.l-C”ECKT|\iG MQRE-iTE« = ' f ' OR 'I'f* 

/\)Pi)-bTu'U>’b.KyiT.FXTr/ * 

;PURU-iiTUPlMG SECTiOw/* 

. J P iJ - S T U D 1 M u - 1 N x R Y , 

IM X ( 24 ) S ' y* T f H NO ADVANCING 

i-TbRi.a K ' tMpnHTENT-DFF-iTEM-PRn TNX36; ' 
yyTlH Nil Anv^wriNG 


hCCKer ri.iPuRlFGT-nEF-Ti’EM-PRO 
UTS'^liAx 'GiVfc, RFMARKS-aF-VXSlTiNG-OPFTCER iN X24;' 
wTl’O fli) AOV’^NCING 
ACCrU'T RE‘<ARK-UF-VlSlTiNG-LlFFTCFR 

L?Tb,Rx.a-i 'lUPE CnwTHnAL-NU-OF-CiL AGLOTEn TN X6j' ^ 

«rr*I Nlj APVAfvCiNG 

ACCFPT CuNTPUL-MUNBFk-OP-Cil. i 

UTb'^l/n 'MA'^URe-ANO-bTZE-nF-iNDnSTRy X!' 

A TIP Mu AnvAGCING 

ACCEPT MATuRt-AMU-SIZF-OF-XMDMSTKy 

uTSRi.ai' 'T'xPE K AND D FACILiriES a\fait.,ARGF WITH THE FIRM T X X 
atj'm nu AnvaNciMG 

ArCFPT FAClTdTX-AVATLABLE-FDR-RflNOD 

UlSPuAi 'TYPE UHAT.XTjf -CONTROL-SX S TEM OF FIRM x**:' 

wTi’M MO AnvAMCING 

ArCFpT OLiALTlY-CUNXRur.-SlfSXFj? 

iUbPGAy 'TeSI-CFRTXFICATES HELD dX FIRM 99:* 

yulrH My advancing 



aTo'\jA’,' 

DTSf’u''^ 

''j 

ip’ njfll, 

FTK‘’'-*n-. 

K ,M '’t iii t"' 

H ^ .'J n •“ t' 


UTbPi.P I 


.tksi-cfihtificate 

( ^ f:. t \Tl-^ kin ("ii »« T . 


(:jri>r',,j\,< 'ffir-L/ by ?xrH. •^'^’^^'•'^^^^*^*^Pt>;?oyAr.->CKPrTFJCRTF:s 
Mij nnvAKfiWG 
'^UAL-APPR-CERT 


UTGPi.Ai 

Wij 

ivrc^’h-T ? 
BTSRi.A , 
M,, 

aPCKt'T F 

i,> T S P B A t 
»'. T J' R M 1 1 


A!Y^ A aping 

'■» l. f T A A AC X A U "POST rf IN 
aPVAAPING r.oiiiji 

I. ^’h”C T AT.-P OS I Ti 0 A 

.ihUScSk “ ‘ 


-ERITriCATES-HEUD BY FIRM P9: 


HF i’Hfg FIRM IN X(6) CH! 




FIRM IN 99 i 


* i r C F i ' Y C U R R F A T - S u P P 1 1 Y • u p D P R 

'.!r?«‘'5i', IStJ^rSc"^ a^ueR^fiXecuTto Jiia oeuxy in n9:' 

Nl" .lSv«RClSf'=^'’ hue US'iftT P£RF0 k“ANCE T,V ill 

RCCFPT SUPiiRu-CANC-UNSaT-PER 

l-'T biPl.A )[ Nu-UF-TlMF-Xp-.pr nrpr) i!^ 

^.TfM *nj hPnurm; ^ ^ ^ ■^• 

AFCFRT NU-uF-TlMt-xF-F’L.OATEn 

^CCEPIFD IN 

aHVAivCIHG 

^ C L' ^ ‘ r '' ' u - 1 1 F - 0 U n t A T I D N - A c C E p r F D 
‘']rC‘sV executed by 

A I Ml Ml! aPvAaCING 

Ar'JPpT MQ-,jF«nKPERS-EXECUTED-RY-FTK*Ji 
nTSPi.Ay 'TYPE FIRM-CODE XN 
aTI'N riij advancing 
ACCFPT FiP,j-Cnt)F 

uTiPiiAy 'Give HATING-DF-FIRM tm xc^i;' 
wIl'D Nu hDV arcing 
AGC-'PT RaTING-UF-FIPM, 

'DJ ynu A'TEP TU CHKRECr ENrRXFS IN RECORD 
TYPE Y 

'F-’USe IYRF A!.» 

ADVAtM'’J MG 
•Kjnbl.E-CMEPK 
f.h>C!?K"K = 'V' 

GH TU FTkM-PECURD-STORXNG-SNIRY 


GTjPl, FTH‘*-PECURU. 
rjPD-STuPiiNG-EXIT.FXll'. 
TRM-T.,INR-X-,TUP1NG SFCTXriN. 
THM-MNK-.STUPXNG-EMI'PY. 

I> I SPG As, 'GIVE man-spec X(l2)l' 



ir:'-: 

(S’ '» 

t;r. 

(■(ft 4 ^:, 
i'l '1 K K ■ 


Ij ft > 
nft ^ 

J'lii 


Ar^VAWriKG 

iAC. *,(• t-’T '■ 1 <'l^|»,s^JFC 

I'TiPl.n- 'HiVt HJSTF 

^hTih Ho hnnkcht" 

H( wTI-'T (•'^TK-PRUn 

^''JGH TO CnRREC'i 

MPf. I. (“.TiGl* Ti’PK i*J * ' 


HF PRODUCTTOM XC 8 ) 


EftlTRiES IM THE RECORD 


-.. Ji't. 

(.,n Tij 


' K = ' V ' 

Kft wGO-KTRH-LiMK* 


■STaRlMG-EMXRX 


- 1 . T 

■1 i'"' 

T i:*--' 


‘ » Z 0 „ K ft * J <"• b. - F T M - r, i M K . 

i< ’-fij ft<f\**ibTl)Rl''IG-EMD,EXIT’. 

.‘i-C'Jf.CKTiMC .SECTIQM. 
'•i-wOhCKT.4{':-REGiN. 

uTo^i.ftv ;ti'Pe I IF vau rave 
uToPi.ft), ' type W nxHERWTSFj' 
rtn-JI ^Tij AnvANClWG 


J^nRE TXE'iS TO add 


X^KF-n f- 


_i\r 

* j.’l M. 


' P j.> T 

•Mtr 


•'’URfci-lTEM. 

KTRG-FrD.FXI'I'. 


pR J Tr 

PRJ I, 


»-i<f'CDKD- 
t-KFCnRD- 
i-TGPt.n^ 
ril I >! Ml, 
Arc KPT 
I > T P 1 1 ft Y 
.4 I. I'D Hu 
AP'JKPT 
UT SPi.Ai 
wHH Ml, 
AFCKi-T 

uroPhAY 
rtTIH Mi.| 
ArCPpT 
OTSPbfty 
^*n’p Mtj 
aCCKFT 
oTbPofty 
ftfl'P Ml) 
APCKpT 

l^TSPLfty 
wti'h Mu 
APCF pT 
UTGPjiftY 
MU 

APCEPT 

UTSPl.ftY 


RinuTi^n SEC f TOM. 
c.tni<Tt*,G--F0TRV, 

'Give mame-qf-phojfct x( 12 ):' 
APVArCIMG 
’’H‘-’E-UF-PRnjFCT 

'Give 01 V 4 cm;' 

AnVAiHClNG 

OXY 

'Give PROJFCT-VAf.UE TM RCHt' 
AOVArCING 
PXnoFCT-VAr.UF 

'GJVE nATE-pRUTQTYPE-REORiRED XtR)5' 
aDvAimCIMG 

nATE*PPUTDTYPE-HEOMlR£D 
'MU-EXT-GTV-FnHSUR-PROr iM 2CH;' 
ADVAnCIHG 

Mu-EXi-GTv-FnRsaB-PRnr 

'n-PkOT-FD-FOR-EVA T;^ dCHS' 

APV''i'(riMG 
n-PHOT-Fn-FUR-FyA 
'PHndFCTinjy-kFFEREiVCE IM XC9)!' 

advancing 

PHf1jFCTinw-RFFEREN'’E 
'PHP-SOnH-pRUC-.V-PRICF. X( 2 !)); ' 

advancing 

PRF-SQnk-FROC-M-PRICE 

'n-Dun'i-uREN-R-TCLew tn x(i 2 );' 



jt'i! 

rt" 

i '■ 




I'R J t 

ViAvl- 
■•I A ,'i "• 


uti"l «IU AHVA.MriNG 

Mr"r'p r n-oijni'-tjPhN-P-TCLEw 

■'j 

o )•!,,?, K-i:‘h'i'’l\ S'i' 

uH T,l l''t?>i'TK;r r-H»*'CnRD-Sl'3RTHG-RfiTKy' 

.1 T.tPc pPLiJt^'i-HFcnKn 
I.T.tRK pPu3crT-FTK«'‘!-T,iMK 
finyi’"* SPACFi) m Mu^^E-PRQ TEH r 

,v,n^F — — 


E” )’ 
P'EJ- 


4 A vj - 


.)*> 1 

-pO j. 


pThf-MP;,, ,''in«F-PHnjpcT«rhErKiN\, 
h V z n i< 'I- 3 itikt wr-Ff^n . ex T i , 

KFUnK^-SinHTNG PECi'TU*?. 

KF:nK 3 -<;i'nKlNf:-Ff<Ti<Y, 

'TiEM-EOPT TM Xf 24 ):' 
rtTiM Nu /ir>vAiMCl^?G 
nr CEP T TiF.i-EOpT 

Ei:<n 'iRM-nun-RbroRO 

IF '<'K 3 iiR-. 3 TAtns = 0326 

uTjpk MAi^-pPU-KFCORn 

pFhFiJ!?,-'! HA.^GE-FTKM-T.iMK-STijRiMG 

(■.T.bF' 

PFRFURH HAMnE-FTR^^-MMK-STORlMG 

.4 n K F - M H « - p H n - r t i F c K I M G , 

G F -J r 1 ^ . r, ^ T ,*< G - E N n . F X T r . 


UMTIU ;'43RE-PRQJFCT 


EXISTS viJtH GIVEN NAMg' 


ETR■1»'^Kr.t,T|f^.^ bECEXfiN. 

UTS'^i.A^ 'Nrwe-FIRM;' 

WTIH Mu uHVANflMG 
hEEEPT Mr^E-ETHM 
KT.yn FjRu-KEcnRn 
IF FHR11''»-GTA TMS = 0326 

UT SPLAY *m FIRM 
Un T.J ETKM-nELETinM-ENO. 

UFi’ K f H '^•“PKCuPO 

uTSpLav 'Hu iPU REAI.lY i^lSrt ID DELETE. IRIS FIRM! 

MTsfM.nY" 'lAMiF-FIRM' ' . , 

DTsDLA.t 'IF YFE type Y EijRfi.TYPE NJ ' 
wTl’D Mu RnvANriPG 
ACCEPT ACrEPT-CnuF 
IP r-EPOE = 'Y' 

UFbETE FlR,4-REC0Hn ALL. 

F T RM- Dif.r.E'P in.\< •EPIU , EY J.T , 

pn.j T.r I-UEI-EITIJM SED ITUN. 
pp j T /r 1 -UP|,,Fl’TLjH-Ff<TRY. , 

uTSDl.M' 'MAME-UF-PKOJECT; ' 


% ^ DR ^ M ^ 



^112 "J'-' *'i''VAwriNG 
.h' *' '\''’(>.-UF’-PHnjFL’T 

Miv'> '^<na»^cT-Rt.ct.mo 

f a ^ ^ ^ HF^AT'mV TO 'inifc DQn itrnm « 

M I ^ u AHr«nF*»P|:>n ^ i^^IS PROJECT;* 


U’ IFS IYt»F' Y SuSciT^PE f,. ' 


r. T r'^ 

A'-'wFi 

»>•• M 


P!».„) T 
,.j n - 


'•'ij /iHVAijrxflG 
^CCi'.PT-cnuF 

'M'-cnpF r 'jj-' 

r. ,., ,. .■, PHnjFCT-REf^aPD 

:■,'' i -l!Ki.'': I'Tu'l-'-'wn.FXTl. '='-^ w 

!•*'■' f'"L»>-’li>'‘ i'T (jf» KhF'l'TilN. 
f'f> ,-i.KmK) f 

iiT:>Pi.Ai. 'TTFrt-EOpf;' 

.♦Tl''! 'Gj APVRNriFG 

<vr:'-'i>T r iFr-.-LopT 

r T.lin ■'‘SA'-’-PKn-RErUPD 

PT^t»uA« 'Hu ynu H^AT^UY 

liTS'^i.M' 'iTfc,v-FQPr' ' 
i'T:>P!,'' V ’'Tt' yFa TYPF Y 

k^T!'! Mit APyANriFG 
afufi'T ACF(-.:r'i-cnuF 

IF A'-“ 


A L it , 


'»IISH TO DKLSTE THIS MAN-PRO: 
FbSETyPE b;' 


;PT-cnt)F = 'y 
l^FUFJF Mam-pkO-REOURD M,U, 

4A v-i''M-!JFhFl'Tij-!-F,*n.FXTf . 

4'lKi.>nK l,,PCT~'*i,ra’KJ,MG SFCTin,,i, 

>1 '1 1 ' 1. 0 J K :.: T- - n J.'C F 1 . M(j,-.| 5 irG T H , 

Y IF YUN MAYE MOHR PROJECTS TO ADO* 
GTSPuAy lYRF n Ol'HERwTSF;' 

.vM!f MiJ AOVARriNG 
A'':!'<‘pr OURh-PPU.TECr. 

,JRC'r’-'’tiFCF ING-ENfj.EXJlT. 

-nKO-^iiFCKlFG SFCTIOm, 

-n«o-r,jFCFiMG-HFGrw, 
uTSOb'^y 'Typfc. i IF YQIT HAVE 
' TYPF m OXHERwTSE; 

.*TI'0 NU AOV^'hFl.NG 
ArCFpT •’URt;-i^)ftR-PRt). 

-«^Kn-''iiPCFlNG-EFD.EXlT. 

An SRCTlHii, 

A T T-RFG f w , 

t/T.s'-'i.Ay »Hu STUPAOE Sf^ACE 
OTS'^bAt 'TTFRi SPE.inA" 

UTSFbAy '"OiniFy THE THORX 

uvi'/.;;'!-FAn'-f:-i,j.EViF, 


*nt<F> 

vp,^;F. 


MORI.'*. 

U'’i‘,V. 


. 4 ,\M 


AN 

•l-F 

’ 1 . 1 ' 


MDRR man-pros TO ADD' 


AVATbAUbE IN THE IRDEX FlbE' 
FTbE SPECIFIC a f TOM USING ISAM' 



2 


IDk ;'-! Ir ’» I '* ' MVl ' U ' ii ,. 

pp j':h' '*• j - 1 i'" V i(, 

AI'T - 

kMw rc'i , ’ i '.'' I >T V I .. tjm . 

'- f . r ’ lTj ”. 

f ^sjjTGf'T TU Dv'^K 

fKJ '-' f / U '!^ '. V ' OF . TG ASCII , 


L) n 1 ' I j '■ I 4 

tTu ^’ s,*.-'r r 

i ' ' 1 “* t * ^ ii ^ 

V^uHt liF ID 'TiMFuRMFIT. ' 

HEpnpTs ARf, KFpnRT-1 Re;P0Rr-2 RFPORT-S 

r . ’ 1 I I '* . 

r'4 ''.uR-RCffL»lA J>ns UF SCHciMA SSABAS 

aFI FDk cnhPiGfe; js LKTiiAi,. 

aF :'»’ inw , 




( ijf ! M k ' I .» ' 

n 

77 

n 

11 

77 

77 

•77 

77 

77 

77 

n 

n 

J1 
77 
7 7 
77 
77 
77 
77 


I ’ 

.-,1 


* *;i 

• l '"* ■ i ~ l -' - 

I '- J ' P.IM I ' 

V '',)- jF-PKnjFCTS 

. iS'-'IhT 


( Yt.f.'.'’ iHb 

PT 


PTC Xr24). 


PT 

af^ARCf-^bY 

PT 

:>70- .(Aw-PPD 

PT 

i *' j-t'pj IK'" r 

PT 

FTH'T|'-i ThF 

PT 

iri 

PT 

r "• J'1 i ' ' 

PI 

j 

PT 

.•>'’C'';.'.FL)KD 

PT 

P - \i A ■'1 

PT 


PTC y . 

PTC X(24j. 

PIC Xf5) Vrtl.UF 'FALSE' . 
PTC K VAbME 'Y'. 

PTC 99. 

PTC AfS). 

PTC Xfb). 

X. 


M-h mm . ■ ^ m 

c xr 24 ), 

C 9, 

C X. 

C 999. 


PTC X(12J 


U 1 

U ? 


S-l .^- uSE . 

PfJ 4 7 AL'!E LRACfcS . 

D7 '’I- Y '^AMJF SPAC'^S, 

07 V /*’ Y YAFiUF SPACFJS , 

01 fKr*r-KF-:cnKn. 

p 7 I A iF - nF-pRUJECl 

UFpTiU ' 

hH T3 of) CyMTRUT. TS fjAf4E‘-nF-PR3JECl‘. 

01 C ! “'A'’b"JF"Ri<9DFC'T LINE TS NEXT PACJt, 

u7 r,i'TK PIC XdOT 

vAb^n*. 'FJRMS fur;'. 


PTC: X(12) 



i 


■4 ^ ''.ii.uMt, 2*^ Pir xcl 4) 
’''rtMK-UF-PHnjPct, 

I i;tc x(no) 

fJ,^, •m* 

"•r’r, PT.U''^ ?, 

IH i) PTC xr2i 

*MU'. 

Pur.iiMt'i 10 pxr xipj 

iH rur.iiMiH PJ.C XC09') 
vnunfj 'FiPrt-cnuF*. 

''jr.UMu 17 PJC X(?3) 
i(ni,nK 'FXToTINc: orders riiM FTR^*' 
ii'^ yp Pir X(14) 

VAbPf. 'RRTINO-UF-FIPM'. 

bfi.. n.DS 1. 

U3 ryj , umm 2 PTC XCUO) 
VAbPF AT.O 


'1 lyp^' PR, 


l«T ryruMiM 4 PTC ZR 
;.ih)PCE T-cunwT. 
uT ''d(a.i'.''N IP p.ir X(24) 
biniPCF ’'.'AMb-f TRf, 
uT ryr,uM'M 4 s pir X(7BT 
;,nj5’CE FiPM-cnUF. 

U1 "ut.uMW bO PIC 9(2) 

SnUPCE "uPRERT-wSUPPtii-JRUEH. 
dt ryfuiMiT lOu pTC x<4) 
bPilPCF PATIWO-Ur-FIRM. 

Dl I.r ^'>1 -! Tint; DE, 

07 bTNE Pufib 4, ^ 

in rur.DMoj .ip Pir xti4) 

VAuHt; 'Fy FT RMS EXIST'. 

rP f.miT Tl'i t>9 ryM'I’ROT. Ts PH-'TAb. 

u1 ''iPi. I'M PR-vRb bTwF TS wFXT PAHE, 
d> r, r'K pr.ijs 2, 

uT rjr.uMw 2 PTC x(9) 

VAb'TE '»<MPMS 

UT Fyr-iF'^b 12 PIC X(24) 

snypcF PH-vAu. 

UT ni,)r,RMp 4 JS PlC X(24/ 

sniJPCF TTFH-RFX, 

U2 MT'E PT.DS 1, ^ 

0l"biJM'l"N ■! fie X(UO) 

VAuUE Afrb - . 




4 


) > !. t it’f.U'”. 1 . 

V \ " H.u*’.! !j I^TC Xf 21 

vAl.'li-. 

r.jl.tiMf, pj[r x(pj 
VAu'ih '^'A•^c.■-FTHM', 

PiC X(Oj 

vai.dF 'FTKM-roDfc:', 
tH rjr,u‘% 7S Pir xt^y) 

n r 'f-'-lP-ntFENCP: TfPIM i^SlsinFACTURSD 

() •’ f. i U\ 1 . 

'’jr.UV.. 2 PTC X(UO) 
vAI/ie At,!/-'. 

Ui 1,1 

r' '.rtr. FEU'* ?. 

iH 4 FTC ‘1^ 

;,nijr7,:K T-riJUNT. 
a ^ if- Pir XC74') 

.'i'UFCf'’ MAWh;-KTHM. 

Pif XC?y) 

fipm-couf, 

'"..t.iiMN Pir X(3bi 
snjuCP TH'HiPi'FwT-nEF-Tl’EM-FPQ. 
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'TXf'p; 1 IT" PiPMS PuR PXTSTX 


’TiC^t.. ) IF FIRM? PQR TwH PA 


'Tyni.; ^ iF FIRMS HAVI^JG A DJRED! ' 
An»r A.'jCXIG 
*'^Fe>CPi)P. 

I'tv'' 1 T 1 FTkSi'-XTmF 

IP’ r < Pt- - cHiJK = 1 

VI.'.- 'Nr.si./ r.i ii:iu-iif-P!<'’jf:p,T5 



ET.S=’ 


..Tr'f 

kT.zy.e'^ MAMii-aP.pi^njFCT 

Mlvf^ "Ui'-!li-jr-PHnjFCT TU P-;jRNF 

^!H[>-PanjFC'^-FXPM uMiTL S‘'ID-;)F-PRDJF:TS='TftnE'. 

1, !* ' It C. " C n u I*. S 7 

t> h! K P J R M r T si D - T T F H - F T H ^ 

£ t* t ^ ^ 

XF TX^t-CODF =? OR 4 UR 5 
PFHFURfi rT.i«iD-MAW-PKn-FiPj4, 

IF FXPf>COUF <1 UR >5 ^ . 

iiTSPyfly 'TMPRUFFR CODP give CORRKCr COi)E' 
a.l Tj USFR-TlPUR.lArTaM-FN'T’BY. 

IF T^Pt-cnuF =1 hr 2 UR ? 

f^nvF 1 TU iincCESs-cnu»Ti' , 

IF SurCRSS-GJPi^T = 1 

TF ERROR-CMECf. = 'FALSF" 

UTSPLAi * •' 

UTXJRuAX ' I‘”E RF,;^}riiTED INFURi^A f lU*! TS Flf.i. i«FURM.PIG' 
EftGE 

WFXT Sfet'-rEsMCE 


jlS^uM 'NU FTR", satisfies TrtF RgOUTRFD CUlDlTn^iS' 

XF TifPE-COUF = 4 PRPxnRY T.vTf-RFP -2 GEf^ERATE uTNF- 2 -J 
Sr.SF PERFORM TNTr-HFP-D GFIFRAIS GiME-b-l. 
CHe''K-:^OKF-RETRTEVALS. 

IJTSPuAY 'TF YPd ivAf^T mqre- 1 WFOK-fATIO,^ TYPE Y 
UTSRuAY 'FbSE IVpF P;' 

WTI'R MU AO Aim Ox MG 
AO'OFP’^ MURS-HCrRiFVAL, 

IF MJRE-kFX’RxFV AL riPT = 'Y* AMD 'M* 

GO i’O CHFCK-MaPE-RFi’OISvAuS. 

• >nvF 'FALSE' TO e»finR-CHECK. 

USER-T.mFURsVSA t’T’JM-ElO.FAir. 

FTisir)-PRlJFC’’’-FiRM SFCTinw. 

FTlD-RRlJF:'’'-FiRM-UFGTJa, 

yjivF 0 TO r-couMX, 

XF Flt^ST-TIME = i 

i 40 VF R TU FTHSX'-XTMF 
FIlD PROJFC'^-RFCORD 
IF F^pyR-CUniMT>0 

movf 'xruf' rn error-chfck 

DISPLAY ' ' „ , 

display 'THIS PROJECT IAmE DOSE 101’ EXlST' 
PKRFurh XNXT-REP'I „ , . . ^ , 

GEMERATE LT?»E-1-1 
ELSE MEXT SFRTEMCF 

FTwn MEXT RECORD OF ALL-PROJECTS SET, 

IF ERRUR-GUOLT >u 

HOVE 'TRUE' iO ENO-OF-PRO JEC TS 
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i,n TO fThJD-PRaj5!CT-FIRM-K^’0. 
oRi' PRO Tt.rT-kF:cnRD. 

iF MftMt>QP-PKOJ'^CT MQT = ,,e 

riDVR ' i'RuE' TH RwH-nF-pRO Jlv- iS 

on TU PR.Q.TErT-i’=:K'HMATinN. 

MnVR 'FALSE' TO END-OR’-SET 
PERFORM uISPL AY-PRO 
UMl'Tu EMD-UR-SET = 'TRU?.'. 

PRO TEf i'-Tf^R’^S.'^A'^inN. 

KTi\in-PR').JPC'’’-RIRM-EA'U.Eyi^. 

U T S P b A 1 -P R 0 7 ER 7;- ^ R’jS SRCTlOi^ . 

UTAnbAx-PPOT.-l-FJHM^-pRLT^^ SET. 

IF ‘''^][^;'^p|'pyR-5XAiiIS = 0526 

UTSRbAY 'MO FTR^ RKIfS FOR THIS PROJECT’ 

MOVE 'TRUR' to 

i^ngF 'tRUR' to RkROR-CHRCK 

else MfluF 'iRUR' TO RnD-OF-SRT 

GO TO DTSi^L A Y-PRO JfiC T-fTRMS-END* 
FlrtO OVjMER PECORO of FIRM-PROJECT b^T 
AP'D 1 TO T-ronoT 

^RT FIkM-RECORu 
GR fIFKATE T,1HE-1 

Tt' Trf = 'Y' OiSPT.AY LiFE-U,^ 

dts»lay-pro t EC t-fipmo-e'^0. exit. 

F T iM P - T T M - n H )•’ ^ ^ f P ' ^ * 

UTSPuAY "^YPt CAT-PAI-OO . 

ADtfAOClMG 
ACCRPT C'aT"P ^■’'-•''0 . „ - 

Hn»/R CAT-OAt-'^'O ii.jj^T-REP-2 

mVJr TTF;a-io5?-OXS TU ttem-keY 

in FpROR-CriFCF 

UTSRuAY 'tlRH L)OlS mOT RXTST' 

GRNRRArR LlME-2-i 


li'R^TIFM-|cpT-DIS TO ITE^-^'EY 



'■'nt/'’: 'f'AbSe:' t'o t;;''?u-0F-sET’ 

T uNITL E‘^a-QF-SEr = "rPUF'. 

0TSl>uft.3L-iTE'''-P'iRi^i SFC‘^j;n;'i. 

D T S o u »- 'i( " I i - F i P r'l - d F (i T w . 

FT,\n '.uai' kfcikp ff itew-fxrm sft 

IF FRRUR"run,^T>0 

If ERKHR'-STATys = 03?6 
insPhAt ' ' 

DTSPLAX 'MO FTrt^ FOR THIS IT£’^ EXITS' 
Hn\(F 'TRUE' in FfiO-OF-SFT 
«nvP 'TRUE' in FRRaP-CHFCK 
gfhehatf EiPE-a-i 


ET,SF 

ELSE 


hhvf 'xpuf' in F^n-nF-sFr 

FTftD OiftMER RfrORD QF FiRM-lTgM SET 
AOO 1 in T-CO'IHT 
GFI FIRM-RFFORD 
uFiiiFRAIF MMfc-2 


IF TIY = 


D T s P U r- i T E - F i R ivl - E M 0 . E X 1 T , 


ELSE MfXT SEf^TEMCF.. 


DISFr.AX LIME-2 


FTND-‘-UM-RRn-FiRM SFCTlOo, 

DTSPbAl 'TIDE IRE M^N-PROS' 
rtllR RQ AnXAnFiMG 
A":FPT TIFVj-eOpT. 

WnVF TIF^i-Enp'^ TO .-lAii'-PBu-l , 

Hoys' TIF'M-EOP’’’ to PR-ThL. 

IF tide-zodf MUT = A 

SPACES 10 sor>-i'''AN-PRn 

DTedoai 'TIDE SFCOtiiD WAN-PRO;' 

/I TIB MQ AOVAilCIMG 

Sun-*-*AM-DRn, 

IF TIDE-COOE ‘TJT = 5 

mvF '4 Au-PPQ:* in Rri^VAL 
HOv'F t ifh-eopt to item-key 

DiSPuAI 'TIDE mArtF OF PROJECT' 
rtTin Mj ADtfAOClHG^ 

ACCEPT TiMn-pKOOS-cT. 

IF TY'^E-COyE s: I OR 4 PERFORM ifUT-REP”2 
EOSF PERFORM INIT-REP-5. 

MOVE D TO I-COUMI. 

FTiSIO Mfiy-PRO-RECORD, 

IE TkROR-COO.viT > 0 

^OvE 'TRUE' 10 ERRuR-CriFCK 
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£f 


I o r. 


OyRj^ J^OT EXIv^I* 

1=^ TiPci-COD?: = ?, OH 4 

GH Tj (.,nv,-t'PO-rFHMiNA"^iaN 

C-.Rf^PK'VJ.'P T.i.Ne-5-i 
GO TJ H'\w-pPU*TOHHIMATnG, 
T3 fcND-JF-OLT 
i^nvT 0 TJ sifj.rb;ss-:ou«i' 

PFKTJP.'l )jrsPij*')r*h!!ti'<-FRU-FTaM 
VARjfT.^G FCnjMT fRj?^ 1 Pi' 1 U?!'iTG 
Mn,V(-'PR J-iFRMJLMftTin j, 
FTND-Ml4M-PK'1-FiRi.)-£f^U,£XiT. 


£MU-QF-Sc.T = 'fRJR- 


t ) T S P u i - .'i J - F P J - K r R 0 S t C i T u N . 

UTSPuM-:4'\:'{-PR0-FTkM-BEGJJ''. 

vn\/F «AM.pKn-1 TtJ ITfcM-FyPX 
FTjn “^A^'T-PKn-RKroPu. 

AP, 

PFR'’JRM FTf^n-M^XX 

aHYiMG J FRJ^^ 0 Bi 1 lINi'TL J = FCJlG\|T. 

ABB. 

IF FKRQR-CGPi^T >u 

IF FKPiJR-STft.XBS = ij3^6 
DISPLAX ' ' 

JTSPLAY '^?Ci firm FOR THIS ?4AM PRJDu:! 

MOVE 'XRUF' rO FHD-DF-SFT 
MOVE 'TPUF' in ERROR-CHECK 
IF Tyrk-CODF = ? OR 4 GFHERMF GiMfc;-2-i. 
OTSPGi^i "BU FIRM FQR THTS PRODUCI' 

GO TO ,UISPLaY-MA.«-pR0-FTRM-E:4D 
£L5F 

GFNFRAi'F LI^F-S"! 

DTSPGAY 'WO FXRf-* WITH IHIS MA»J-PRn» 
GO TQ DTSPGAY-iAR-PRO-FTRM-EHn. 


:r' 


tsr.sF 


f fp 1 -J' r* 
" y 


•iOvF 'IRUF' 10 FriP-OF-SFI 

^ GO TO DTS'’GAY-hRH-FRQ-FTHM-SND, 
Tj search-key vSUCCEEDEP 


OOi/F 'F — - 

FT.mO Oft'lER RECJPu OF FIRM-mAR-PRQ SEX, 

GET FTR^'-RSC JRO. 

IF typE-COOE =4 

PFREJRt) SEARCR-OIHER-FAN-PRO 

(iiTir. search-key = 'true' or shcceedeo = 'true'. 

TYP£-C00E = E . 

PFwrjPw sEARCH-^A*'--PROJECX 

U'lrTil SFaRCH-xeY = 'XPUE' UP EUCCEEnSD = 'IRUr 
TYPE-COjE =3 JP.CTYPt-COuF = 4 ArP SuCCESPED = IPB-F ) 
PERFORM FT.^n-PROJECT. ^ , 

typE-COOE = '3 OR SHCCEEUED = TRUE 

Aoi) I i'O T-rjnjT 


IE 

IF 

IE 
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IP s: 5 

j.5* TfY = " f DiSPT.AY r.lNE-5 

i!.r.sp: Mt^cr SFiiTb,MCE 
PL.'^C, aP.^PKfti'P 

IP TIY = 'Y' Dl<;pf.HY LiNE-2. 

n:j I'l 31'5pf;AY«’''AfI-PKD-F,inM-END. 

ETi^^'^*^^EXT. 

KT!'<n \|k:xi’ KFCaRD OF WAN-PPO SFf, 

UTSPb^X -M''v:M-pPU-FTHM-p:hn.EXTT, 

FT^ri.DKljPCT seoiTaM. 

FTi^.O-Pr<l.JF:T-nEGj.M, 

FTM-^ PintJT PECOPU IjF FIPM-pPiMECf SEI* 

FT„,n q^TUPl) OF PHOJECT-PIPM SEi' 

v,El PPO TtCb-KECnKH, 

FT.'tO-PROJECT-P.'iO.EXTr. 

SFARCO-OmeR-^'^A^I-PRO Shiri.'TU’''. 
SEARCR-TER-vsAfi-pRa-BEGTf'^. 

FTmFI "EXi- RECOHn OF FTKM-M.am-PHO SeT 

IP EHPJP-C JOi^T >>.< 

iViOvFC ''IPUE* TO PEAHOHI-fvEI 

' FiF'in iPEroPt) ue ma'i-pho set 

GEI 

IF ITeM-EOPT = SWO-FiAN-PPa 

mO'/p 1 TO snCCESS-COUfri 
MOVE 'TRUE' TO SUCCEEDED. 
SEARCH-OTRER-MAn-PRO-END.EXTI. 

S E A P C R - « A ‘J - P R 0 J E C T S E C I T b M . 

SEARCR-'^A^’-PHOjECi'-BECiW. ' . n, 

FTiVn HEXI RECOKn OF FTHM-PROJECT vSeT. 

IP EKPOR-CafFM? >0 

hove 'i’RUE' TO SE»KCri-K.Ei 

FIRD OrtMER PECUPO 0^ pROJECT-FIRH SET 
GET 

IE MAME-JP-PHOJECT = P 

move 1 TO sncCESs-cnuMi’ 

.hove 'tpoe' in succeeded, 

GEARCH*'’A‘^-Dr<OJECT-E>'iD.EATT, 

AR£AS"'URt'nX3 SECTIOi’^i, 

apeas-opexiyg-e'^try. 

npEAi A.fiG 

OSAGE-MUDE iS ExCLOSTVE RET’HTEVAT., . 

APEAG-UPE^UHG.-E'»D.eXIT. 

IMIT-REP-i SECTTUM. 

IE nnK Ts = 

MOVE X' Tu UHt 
I 'VITIATE PEPQPl-i. 


riirrijn. 

i'^ T’»v1 TS = SpfiCF 

MnVH! *a' TU fwu iWiVIIinP REP3PI'-2. 

i^riT-REP-S i- A-Ai., I £, 

IF P’l.VE iS = SPACES 

. , , MHVF 'X.' TO FTVF IWTi'TArE REanKT-S, 

TRK^!-a.ur..-T■:^ i'TAT’ED-REPjP.i-S SECfTU”. . 

1®' R.'vF TS N^r = SPACES ' * I i • • 

rRR*''X'JAFE pFpnRT-l. . 

IF T^n TS = SPACE " 

TER«XflATE REPnET-?, 

IF EiVE IS njT = S'='ACfc;S 

IER»UMATE RFpnHT-5. 



